open Castling;;

module CharPG = ParserGenerator (CharToken);;
open CharPG;;

let rec test = lazy !! (
	one_of ~name:"aaa" [
		"a", element 'a';
		error "bad_bc", element 'b' >> element 'c';
		error "bad_d", element 'd']
);;

debug := true;;
runtime_debug := true;;
error_printer := true;;
generate test;;
